	.file	1 "eucl.c"
	.section .mdebug.abi32
	.previous
	.abicalls
	.text
	.align	2
	.globl	eucl
	.ent	eucl
eucl:
	subu	$sp,$sp,16
	sw	$fp,12($sp)		# guarda el fp
	sw	$28,8($sp)		# 28 gp guarda el gp
	move	$fp,$sp
	move	$8,$4			# t0 = a
	move	$9,$5			# t1 = b
	bne 	$8,$0,iterar
	move	$2,$9
	j	end

iterar:	slt	$10,$9,$8		# if(b<a)
	beq	$10,$0,bmaia
	subu	$8,$8,$9
	j	loop

bmaia:	subu	$9,$9,$8
loop:	bne	$0,$9,iterar 
	move	$2,$8
end:	move	$sp,$fp			
	lw	$fp,12($sp)		# levanta el fp
	lw	$fp,8($sp)		# levanta el gp
	addu	$sp,$sp,16
	j	$31
	.end	eucl
	.size	eucl, .-eucl
	.ident	"GCC: (GNU) 3.3.3 (NetBSD nb3 20040520)"
